﻿Imports DAL.DAL
Imports BE.BE

Namespace BL



    Public Class Patente_BL

        Shared Function listarTodasLasPatentes() As List(Of Patente_BE)
            Return DAL_Patente.listarTodasLasPatentes
        End Function


        Shared Function listarPatentesOtorgadas(ByVal pid As Integer) As List(Of Patente_BE)
            Return DAL_Patente.listarPatentesOtorgadas(pid)
        End Function


        Shared Sub guardarPatentePorUsuario(pPatente As Patente_BE, pId As Integer)
            Dim DVH As Integer = 0
            Dim DVV As Integer = 0
            Dim cadenastr As String = ""
            cadenastr += pId.ToString
            cadenastr += pPatente.Id.ToString
            If pPatente.Tipo = 1 Then
                cadenastr += "True"
            Else
                cadenastr += "False"
            End If
            'cadenastr += pPatente.Tipo.ToString
            DVH = Helper_BL.calcularDVH(cadenastr)
            Try
                DAL_Patente.guardarPatentePorUsuario(pPatente, pId, DVH)
                'actualizo dvv en la tabla usuario_patente.
                DVV = Helper_BL.calcularDVV("usuario_patente")
                Helper_BL.setearDVV("usuario_patente", DVV)
            Catch ex As Exception
                Throw ex
            End Try
        End Sub


        Shared Sub quitarPatentePorUsuario(pPatente As Patente_BE, pId As Integer)
            DAL_Patente.quitarPatentePorUsuario(pPatente, pId)
        End Sub


        Shared Function listaPatentesFinalPorUsuario(ByVal pusr As Usuario_BE) As List(Of Patente_BE)
            Return DAL_Patente.listaPatentesFinalPorUsuario(pusr)
        End Function


#Region "Test.vb"
        'se usa para generarlas TEST.vb (NO ES DE LA APP)
        Shared Sub NuevaPatente(pPatente As Patente_BE)
            DAL_Patente.nuevaPatente(pPatente)
        End Sub
#End Region


    End Class

End Namespace
